100 PRINT"[147][158]            TNT-DISK-PAINTER            "
110 DIM P$(8)
200 PRINT""
210 PRINTTAB(3)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
211 PRINTTAB(3)"[221] *** MAIN MENUE *** [221]"
212 PRINTTAB(3)"[221]                    [221]"
213 PRINTTAB(3)"[221] 1.............LOAD [221]"
214 PRINTTAB(3)"[221] 2.............SAVE [221]"
215 PRINTTAB(3)"[221] 3.............EDIT [221]"
216 PRINTTAB(3)"[221] 4............PAINT [221]"
217 PRINTTAB(3)"[221] 5.............QUIT [221]"
218 PRINTTAB(3)"[221]                    [221]"
219 PRINTTAB(3)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
220 GET A$: A=VAL(A$)
230 ON A GOSUB 500,700,300,900,1600
240 GOTO 200
300 REM *** EDIT ***
310 PRINT""
311 PRINTTAB(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
312 [153][163]5)"(null)    *** EDIT ***    (null)
313 PRINTTAB(5)"[221]                    [221]
314 [153][163]5)"(null)1  ................ (null)
315 PRINTTAB(5)"[221]2  ................ [221]
316 [153][163]5)"(null)3  ................ (null)
317 PRINTTAB(5)"[221]4  ................ [221]
318 [153][163]5)"(null)5  ................ (null)
319 PRINTTAB(5)"[221]6  ................ [221]
320 [153][163]5)"(null)7  ................ (null)
321 PRINTTAB(5)"[221]8  ................ [221]
322 [153][163]5)"(null)                    (null)
323 PRINTTAB(5)"[221]_ = ENDE            [221]
324 [153][163]5)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
330 POKE214,8:PRINT
331 FOR I=1 TO 8
332 PRINTTAB(9)P$(I)
333 NEXT
340 X = 0 : Y = 0
350 A=1393+X+Y*40:B=PEEK(A):POKEA,B OR 128
355 POKEA,B AND 255-128
360 GET A$:IF A$="" THEN 350
370 IF A$="" THEN IF Y<7 THEN Y=Y+1:GOTO 350
371 IF A$="[145]" THEN IF Y>0 THEN Y=Y-1:GOTO 350
372 IF A$="" THEN IF X<15 THEN X=X+1:GOTO 350
373 IF A$="[157]" THEN IF X>0 THEN X=X-1:GOTO 350
374 IF A$=CHR$(13) THEN X=15:GOTO 382
375 IF A$="_" THEN 400
380 POKE646,7:POKE 648,192:PRINT"[147]"A$:POKE648,4
381 B=PEEK(49152)
382 IF X=15 THEN X=-1:IF Y<7 THEN Y=Y+1
383 IF X<15 THEN X=X+1
390 POKEA,B:GOTO 350
400 OPEN1,3
405 FOR I = 1 TO 8
410 POKE214,7+I:PRINT:POKE211,9
415 P$(I)=""
420 FOR J = 1 TO 16
430 GET#1,A$
435 P$(I)=P$(I)+A$
440 NEXT:NEXT:CLOSE1
445 GOSUB 1400
450 RETURN
500 REM *** LOAD ***
510 PRINT""
511 PRINTTAB(9)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
512 [153][163]9)"PEEK NAME:                 PEEK
513 PRINTTAB(9)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
520 [153]""[163]16);:[151]19,64:[133]A$:[151]19,0
530 A$[178][200](A$,16)
540 [159]1,8,0,A$
541 [132]1,O1
542 [132]1,O2
543 [132]1,O3
544 [132]1,O4
545 [132]1,O5
546 [132]1,O6
550 [129] I[178]1 [164] 8
560 P$(I)[178]""
570 [129] J[178]1 [164] 16
580 [161]#1,A$
590 P$(I)[178]P$(I)[170]A$
600 [130]:[130]:[160]1:[142]
700 [143] *** SAVE ***
710 [153]""
711 [153][163]9)"ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^
712 PRINTTAB(9)"[194] NAME:                 [194]
713 [153][163]9)"/LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP
720 PRINT""TAB(16);:POKE19,64:INPUTA$:POKE19,0
730 A$=LEFT$(A$,16)
740 OPEN1,8,1,A$
741 PRINT#1,O1
742 PRINT#1,O2
743 PRINT#1,O3
744 PRINT#1,O4
745 PRINT#1,O5
746 PRINT#1,O6
750 FOR I=1 TO 8
780 PRINT#1,P$(I);
800 NEXT:CLOSE1: RETURN
900 REM *** PAINT ***
910 PRINT""
911 PRINTTAB(7)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
912 PRINTTAB(7)"[194]    PAINT-MENUE   [194]"
913 PRINTTAB(7)"[194]                  [194]"
914 PRINTTAB(7)"[194] 1.........ANFANG [194]"
915 PRINTTAB(7)"[194] 2...........ENDE [194]"
916 PRINTTAB(7)"[194] 3.....HAUPTMENUE [194]"
917 PRINTTAB(7)"[194]                  [194]"
918 PRINTTAB(7)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
920 GET A$:IF A$="3" THEN 200
921 IF A$="1" THEN 1300
922 IF A$<>"2" THEN 920
930 OPEN15,8,15,"IJ":FOR T=1 TO 1000:NEXT:OPEN1,8,2,"#"
931 GOSUB 1200
932 PRINT#15,"U1 2 0"TR;SE
933 PRINT#1,CHR$(0)CHR$(255);
934 FOR I=1 TO 8
935 PRINT#1,CHR$(O1+O2*128+O3*64+O4*32+O5*16)CHR$(18)CHR$(0);
936 PRINT#1,LEFT$(P$(I)+"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]",16);
940 FOR J=1 TO 9:PRINT#1,CHR$(0);:NEXT
941 PRINT#1,CHR$(O6AND255)CHR$(O6/256)CHR$(0)CHR$(0);
942 NEXT
943 PRINT#15,"U2 2 0"TR;SE
950 REM *** LETZTER EINTRAG SUCHEN ***
951 T=18:S=1
960 PRINT#15,"U1 2 0"T;S
970 GET#1,A$:GET#1,B$
980 IF ASC(A$+CHR$(0)) =0 THEN 1000
990 T=ASC(A$+CHR$(0)):S=ASC(B$+CHR$(0))
995 GOTO 960
1000 PRINT#15,"U1 2 0"T;S
1010 PRINT#1,CHR$(TR)CHR$(SE);
1020 PRINT#15,"U2 2 0"T;S
1030 CLOSE1:CLOSE15:GOTO 200
1200 REM *** FREI STELLE SUCHEN ***
1210 OPEN2,8,3,"#"
1220 PRINT#15,"U1 3 0 18 0"
1230 PRINT#15,"B-A 0 18 0"
1240 INPUT#15,A,B$,TR,SE
1245 PRINTA,B$,TR,SE
1250 PRINT#15,"U2 3 0 18 0"
1260 CLOSE2
1265 IF SE = 0 THEN 1210
1270 IF TR <> 18 THEN END
1275 PRINT#15,"B-A 0"TR;SE
1280 RETURN
1300 REM *** ANFANG ***
1305 OPEN15,8,15,"IJ":FOR T=1 TO 1000:NEXT:OPEN1,8,2,"#"
1310 GOSUB 1200
1320 PRINT#15,"U1 2 0 18 1"
1330 PRINT#15,"U2 2 0";TR;SE
1350 PRINT#15,"U1 2 0 18 1"
1352 PRINT#1,CHR$(TR)CHR$(SE);
1353 PRINTTR,SE
1354 FOR I=1 TO 8
1356 PRINT#1,CHR$(O1+O2*128+O3*64+O4*32+O5*16)CHR$(18)CHR$(0);
1358 PRINT#1,LEFT$(P$(I)+"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]",16);
1360 FOR J=1 TO 9:PRINT#1,CHR$(0);:NEXT
1362 PRINT#1,CHR$(O6AND255)CHR$(O6/256)CHR$(0)CHR$(0);
1364 NEXT
1365 PRINT#15,"B-P 2 0"
1366 PRINT#1,CHR$(TR)CHR$(SE);
1370 PRINT#15,"U2 2 0 18 1"
1380 CLOSE 1:CLOSE 15:GOTO 200
1400 REM *** OPTIONEN ***
1410 PRINT""
1420 PRINTTAB(7)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
1421 PRINTTAB(7)"[194]    *** OPTIONEN ***    [194]"
1422 PRINTTAB(7)"[194]                        [194]"
1423 PRINTTAB(7)"[194]  0 DEL 5 ??? 10 ???    [194]"
1424 PRINTTAB(7)"[194]  1 SEQ 6 ??? 11 ???    [194]"
1425 PRINTTAB(7)"[194]  2 PRG 7 ??? 12 ???    [194]"
1426 PRINTTAB(7)"[194]  3 USR 8 ??? 13 ???    [194]"
1427 PRINTTAB(7)"[194]  4 ??? 9 ??? 14 ???    [194]"
1428 PRINTTAB(7)"[194]              15 ???    [194]"
1429 PRINTTAB(7)"[194]  TYPE:                 [194]"
1430 PRINTTAB(7)"[194]  OPEN/CLOSE(0-1):      [194]"
1431 PRINTTAB(7)"[194]  PROTECT   (0/1):      [194]"
1432 PRINTTAB(7)"[194]  ???       (0/1):      [194]"
1433 PRINTTAB(7)"[194]  ???       (0/1):      [194]"
1434 PRINTTAB(7)"[194]  LENGHT(0-65535):      [194]"
1435 PRINTTAB(7)"[194]                        [194]"
1436 PRINTTAB(7)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
1440 POKE214,16:PRINT:POKE211,15:POKE19,64:PRINTO1
1450 POKE214,16:PRINT:POKE211,15:POKE19,64:INPUTA$:POKE19,0:O1=VAL(A$)
1460 POKE214,17:PRINT:POKE211,26:POKE19,64:PRINTO2
1470 POKE214,17:PRINT:POKE211,26:POKE19,64:INPUTA$:POKE19,0:O2=VAL(A$)
1480 POKE214,18:PRINT:POKE211,26:POKE19,64:PRINTO3
1490 POKE214,18:PRINT:POKE211,26:POKE19,64:INPUTA$:POKE19,0:O3=VAL(A$)
1500 POKE214,19:PRINT:POKE211,26:POKE19,64:PRINTO4
1510 POKE214,19:PRINT:POKE211,26:POKE19,64:INPUTA$:POKE19,0:O4=VAL(A$)
1520 POKE214,20:PRINT:POKE211,26:POKE19,64:PRINTO5
1530 POKE214,20:PRINT:POKE211,26:POKE19,64:INPUTA$:POKE19,0:O5=VAL(A$)
1540 POKE214,21:PRINT:POKE211,26:POKE19,64:PRINTO6
1550 POKE214,21:PRINT:POKE211,26:POKE19,64:INPUTA$:POKE19,0:O6=VAL(A$)
1560 IFO1+O2*128+O3*64+O4*32+O5*16>255ORO1+O2*128+O3*64+O4*32+O5*16<0THEN1440
1570 IFO6>65535 OR O6<0 THEN 1440
1580 RETURN
1600 REM *** ENDE ***
1610 FOR I=1 TO 50
1620 X=RND(0)*19:Y=RND(1)*19:POKE646,RND(0)*16
1630 POKE214,Y:PRINT:POKE211,X
1640 PRINTTAB(X)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
1660 [153][163]X)"PEEKTHIS LITTLE PRG IS PEEK
1680 PRINTTAB(X)"[194]FROM TNT-SOFT      [194]
1700 [153][163]X)"PEEKBYE ! BYE ! BYE !  PEEK
1720 PRINTTAB(X)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
1730 [130]
1740 [151]56325,0:[153]"LOAD":[151]56325,50